/*  print_string.c - Send output to the tty you're running on, regardless of whether it's
 *     through X11, telnet, etc.  We do this by printing the string to the tty associated
 *     with the current task.
 */
 
#include <linux/kernel.h>
#include <linux/module.h>
#include <linux/sched.h>    // For current
#include <linux/tty.h>      // For the tty declarations
 
MODULE_LICENSE("GPL");
MODULE_AUTHOR("Peter Jay Salzman");

unsigned int clear_cr0(void)
{
    unsigned int cr0 = 0;
    unsigned int ret;
    
    asm volatile("movl %%cr0, %%eax"
        :"=a"(cr0)
        );
    ret = cr0;
    cr0 &= 0xfffeffff;
    
    asm volatile("movl %%eax, %%cr0"
        :
        :"a"(cr0)
        );
    return ret;
}

void setback_cr0(unsigned int val)
{
    asm volatile("movl %%eax, %%cr0"
        :
        :"a"(val)
        );
}
 
void print_string(char *str)
{
   struct tty_struct *my_tty;
   my_tty = current->signal->tty;           // The tty for the current task
   //   clear_cr0();
   /* If my_tty is NULL, the current task has no tty you can print to (this is possible,
    * for example, if it's a daemon).  If so, there's nothing we can do.
    */
   if (my_tty != NULL) { 
 
      /* my_tty->driver is a struct which holds the tty's functions, one of which (write)
       * is used to write strings to the tty.  It can be used to take a string either
       * from the user's memory segment or the kernel's memory segment.
       *
       * The function's 1st parameter is the tty to write to, because the same function
       * would normally be used for all tty's of a certain type.  The 2nd parameter
       * controls whether the function receives a string from kernel memory (false, 0) or
       * from user memory (true, non zero).  The 3rd parameter is a pointer to a string.
       * The 4th parameter is the length of the string.
       */
      ((my_tty->ops)->write)(
         my_tty,                 // The tty itself
         str,                    // String
         strlen(str));           // Length
 
      /* ttys were originally hardware devices, which (usually) strictly followed the
       * ASCII standard.  In ASCII, to move to a new line you need two characters, a
       * carriage return and a line feed.  On Unix, the ASCII line feed is used for both
       * purposes - so we can't just use \n, because it wouldn't have a carriage return
       * and the next line will start at the column right after the line feed. 
       *
       * BTW, this is why text files are different between Unix and MS Windows.  In CP/M
       * and its derivatives, like MS-DOS and MS Windows, the ASCII standard was strictly
       * adhered to, and therefore a newline requirs both a LF and a CR.
       */
      ((my_tty->ops)->write)(my_tty, "\015\012", 2);
   }
}
 
int print_string_init(void)
{
   print_string("The module has been inserted.  Hello world!");
   //   setback_cr0(1);
   return 0;
}
 
void print_string_exit(void)
{
   print_string("The module has been removed.  Farewell world!");
}  
 
module_init(print_string_init);
module_exit(print_string_exit);
